home *** CD-ROM | disk | FTP | other *** search
/ The Games Machine 75 / XENIATGM75.iso / Shareware / X-Setup 5.0 / _SETUP.1 / XQ Desktop System Settings.xpl < prev    next >
Text File  |  1999-06-11  |  2KB  |  73 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="3"
  4. "UIPATH"="Appearance\Desktop\Other"
  5. "NAME"="Advanced Options"
  6. "VERSION"="1.4"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Show "Network Neighborhood" on desktop"
  9. "TEXT 2"="Save item locations on exit"
  10. "TEXT 3"="Show current username and computer on 'My Computer'"
  11. "TEXT 4"="D"
  12. "WARNING"="1"
  13. "DESCRIPTION 1"="!WARNING!"
  14. "DESCRIPTION 2"="Hiding the Network Neightborhood can lead to serious problems (for example with UNC names). Deactivate this option ONLY if you are sure that you don't need any network-function."
  15. "DESCRIPTION 3"="!WARINING!"
  16. "DESCRIPTION 4"="If "Save item location on exit" is activated, the desktop saves the positions of every icon on the desktop on exit."
  17. "DESCRIPTION 5"="To see the changes, switch to the desktop and press F5 to refresh it."
  18. "AUTHOR"="Xteq Systems"
  19. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  20. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
  21.  
  22.  
  23. sP="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"
  24. sP2="HKEY_CLASSES_ROOT\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\@"
  25. sV2="%USERNAME% on %COMPUTERNAME%"
  26. Sub Plugin_Initialize 
  27.  i=RegReadValue(sp&"NoNetHood")
  28.  if IsEmpty(i) or i="00000000" then SetUIElement 1,true
  29.  
  30.  i=RegReadValue(sp&"NoSaveSettings")
  31.  if IsEmpty(i) or i="00000000" then SetUIElement 2,true
  32.  
  33.  s=RegReadValue(sP2)
  34.  if s=sV2 then SetUIElement 3,true
  35. End Sub
  36.  
  37. Sub Plugin_CheckData(ElementIndex)
  38. End Sub
  39.  
  40. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  41.  b=GetUIElement(1)
  42.  if b=true then
  43.   Call RegWriteValue(sp&"NoNetHood","00000000",3)
  44.  else
  45.   Call RegWriteValue(sp&"NoNetHood","01000000",3)
  46.  end if
  47.  
  48.  b=GetUIElement(2)
  49.  if b=true then
  50.   Call RegWriteValue(sp&"NoSaveSettings","00000000",3)
  51.  else
  52.   Call RegWriteValue(sp&"NoSaveSettings","01000000",3)
  53.  end if
  54.  
  55.  b=GetUIElement(3)
  56.  if b=true then
  57.  
  58.     if GetWinVer<>2 then
  59.        Call MsgError("The 'USERNAME on COMPUTER' option is only available on Windows NT. Sorry!")
  60.     else
  61.        Call RegWriteValue(sP2,sV2,4)
  62.     end if
  63.  
  64.  else
  65.     Call RegWriteValue(sP2,"My Computer",1)
  66.  end if
  67.  
  68.  Restart
  69. End Sub
  70.  
  71. Sub Plugin_Terminate 
  72. End Sub
  73.